home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abg.d64 / seq read & print (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  44 lines
  1. 1 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][159]             [195]-64 / [195]-128":PRINT"        [211]IMPLE/[211]EQUENTIAL/[210]EADER":PRINT" (C) 1986 BY [211]TEVE [196]. [206]ICHOLS.":PRINT" [198][210][197][197] COPIES ONLY....":PRINT"[159] [215]-THANKS TO UNKNOWN AUTHOR OF":PRINT" SEQ READ ROUTINE TACKED ONTO END.
  2. 2 [153]"PRINT (null)UT DISK WITH SEQ. FILES IN DRIVE,":[153]" AND PRESS  (null)VAL(null)(null)(null)(null) WAIT....OPEN
  3. 3 GETZ$:IFZ$<>CHR$(13)THEN3
  4. 4 DIMB$(141):A%=1:PRINT"[155]LOADING FILENAMES...[159]":C$=CHR$(34):OPEN1,8,0,"$":FORN=1TO28:GET#1,W$:N$=N$+W$:NEXT
  5. 5 GET#1,W$,W$,W$,W$
  6. 6 IFSTTHEN14
  7. 7 GET#1,W$:IFW$<>C$THEN6
  8. 8 GET#1,X$
  9. 9 GET#1,W$:IFW$<>C$THENX$=X$+W$:GOTO9
  10. 10 B$(A%)=X$:PRINTB$(A%)
  11. 11 GET#1,W$:IFW$="S"THENA%=A%+1:PRINT"[145]_ SEQ. FILE[159]
  12. 12 [139]W$[179][177]""[167]11
  13. 13 [137]5
  14. 14 D%[178]1:M%[178]42:N%[178]1:[160]1
  15. 15 [153][199](14)"LOADCONT DISK MENU WAITSYS";N$:[153]"OPEN PRESS RETURN FOR NEXT PAGE.
  16. 16 PRINT"[155]"N%"[157][146]"B$(N%)TAB(20)"[155]"N%+1"[157][146]"B$(N%+1):N%=N%+2:IFN%<A%ANDN%<=M%THEN16
  17. 17 P$="":INPUT"[159] LOAD & PRINT SEQ. FILE NUMBER [146] ";P$:IFN%>43THENN%=1
  18. 18 P%=VAL(P$):IFP$=""ANDN%>42ANDN%<=A%THENM%=83:N%=43:D%=43:GOTO15
  19. 19 IFP%<D%ORP%>=A%ORP>=M%THEN14
  20. 20 DN=3:SA=0:C$="":PRINT"[147][158] [198]ILENAME... "B$(P%):INPUT"OUTPUT TO <S>CREEN OR <P>RINTER ? S[157][157][157]";IN$:IFLEFT$(IN$,1)<>"S"THEN22
  21. 21 C$="":IFIN$="S"GOTO23
  22. 22 DN=4:SA=7:PRINT
  23. 23 PRINT:OPEN4,DN,SA:D$=C$:T=0:OPEN1,8,5,B$(P%):PRINT"[158]PRESS ANY KEY TO PAUSE PRINTING ...
  24. 24 [161]#1,A$:OK[178](ST):[139]DE[178]3[137]27
  25. 25 [139]A$[178]"LOAD"[167]A$[178][199](17)
  26. 26 [137]30
  27. 27 [139]A$[179][177]"LOAD"[137]30
  28. 28 [153]" PRESS ANY KEY TO CONTINUE WAIT
  29. 29 GETIN$:IFIN$=""GOTO29
  30. 30 GETZ$:IFZ$=""THEN35
  31. 31 PRINT:PRINT"[159] [208]AUSE:  <[205]> = [205]ENU, <[195]> = [195]ONTINUE [146]
  32. 32 [161]Z$:[139]Z$[179][177]"M"[175]Z$[179][177]"C"[167]32
  33. 33 [139]Z$[178]"M"[167]43
  34. 34 Z$[178]"
  35. 35 PRINT#4,A$;:IFOK<>0GOTO41
  36. 36 IFDE=3GOTO24
  37. 37 IFA$<>CHR$(34)GOTO24
  38. 38 IFT=0THEND$="":T=1:GOTO24
  39. 39 IFT=1THEND$=C$:T=0:GOTO24
  40. 40 PRINT"ERROR
  41. 41 [153]"  OPEN PRESS ANY KEY WAIT
  42. 42 GETA$:IFA$=""THEN42
  43. 43 CLOSE4:CLOSE1:GOTO14
  44.